home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld: Super Stacks!
/
Macworld CD.iso
/
HyperCard Archives
/
International
/
French v1.2.5.1
/
Base
/
card_3011.txt
< prev
next >
Wrap
Text File
|
1989-09-15
|
7KB
|
290 lines
-- card: 3011 from stack: in
-- bmap block id: 4702
-- flags: 4000
-- background id: 2282
-- name: Préférences
----- HyperTalk script -----
on openCard
setUserLevel the userLevel
if card field "Utilisateur" is empty
then click at the loc of card field "Utilisateur"
pass openCard
end openCard
on setUserLevel whatLevel
set userLevel to whatLevel
if the userLevel is whatLevel then
put the userLevel into card field "Niveau d'utilisation"
set hilite of button "Navigation" to the userLevel = 1
set hilite of button "Texte" to the userLevel = 2
set hilite of button "Dessin" to the userLevel = 3
set hilite of button "Auteur" to the userLevel = 4
set hilite of button "Programmation" to the userLevel = 5
set visible of button "Déplacement du curseur" to the userlevel >= 2
set visible of button "Raccourcis" to the userLevel >= 3
set visible of button "Saisie masquée" to the userLevel = 5
set hilite of button "Déplacement du curseur" to the textArrows
set hilite of button "Raccourcis" to the powerKeys
set hilite of button "Saisie masquée" to the blindTyping
else
set hilite of the target to false
end if
end setUserLevel
on closeCard
global userName
put card field "utilisateur" into userName
end closeCard
-- part 1 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=145 right=166 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Navigation
----- HyperTalk script -----
on mouseUp
setUserLevel 1
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=95 top=187 right=208 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dessin
----- HyperTalk script -----
on mouseUp
setUserLevel 3
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=208 right=229 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Auteur
----- HyperTalk script -----
on mouseUp
setUserLevel 4
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=229 right=250 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Programmation
----- HyperTalk script -----
on mouseUp
setUserLevel 5
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=226 top=187 right=208 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Raccourcis
----- HyperTalk script -----
on mouseUp
set powerKeys to the hilite of button "Raccourcis"
end mouseUp
-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=173 top=91 right=111 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Utilisateur
----- HyperTalk script -----
on closeField
global userName
put card field "Utilisateur" into userName
end closeField
-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=166 right=187 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Texte
----- HyperTalk script -----
on mouseUp
setUserLevel 2
end mouseUp
-- part 9 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=233 top=124 right=143 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Niveau d'utilisation
-- part 21 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=226 top=164 right=186 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Déplacement du curseur
----- HyperTalk script -----
on mouseUp
set textArrows to the hilite of button "Déplacement du curseur"
end mouseUp
-- part 20 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=230 top=125 right=145 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Niveau d'utilisation
-- part 13 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=226 top=229 right=250 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Saisie masquée
----- HyperTalk script -----
on mouseUp
set blindTyping to the hilite of button "Saisie masquée"
end mouseUp
-- part 19 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=17 top=67 right=320 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Aide de base
----- HyperTalk script -----
on mouseUp
hide card field id 19
end mouseUp
-- part contents for background part 6
----- text -----
Préférences
-- part contents for card part 9
----- text -----
3
-- part contents for card part 19
----- text -----
La carte Préférences permet de choisir le niveau d'utilisation dans HyperCard. Cinq niveaux sont prévus :
1. NAVIGATION : navigation basée sur les menus et boutons.
2. TEXTE : création et modification de texte.
3. DESSIN : création et modification de dessin.
4. AUTEUR : création de boutons, champs et liens.
5. PROGRAMMATION : programmation en langage HyperTalk.
• Des "Raccourcis" sont disponibles pour les niveaux 3, 4 et 5. Ils s'appliquent aux fonctions de dessin (par exemple M pour Tracé multiple...).
Cocher cette case équivaut à choisir l'article "Raccourcis" dans le menu "Options".
• "Saisie masquée" est uniquement disponible pour le niveau 5. Elle permet de taper un message dans la fenêtre de message lorsqu'elle est masquée (ainsi vous disposez du plein écran pour la carte si nécessaire).
• Le niveau d'utilisation peut être modifié dans le cadre de l'article
"Protéger la pile" du menu "Fichier" ou en utilisant HyperTalk (par exemple, taper "set userlevel to 2" dans la fenêtre de message d'un script, passera en mode Texte).
• Les trois cartes de recherche de la pile de base sont uniquement disponibles pour le niveau 5.
-- part contents for card part 20
----- text -----
5